home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / pepo / pepo.bas next >
BASIC Source File  |  1994-06-01  |  4KB  |  182 lines
  1. 10 'ペポペポ！　－モールス発信機－   Ver.5.2A
  2. 20 'Developed by   Kei Ishikawa  VFA02305
  3. 30 *INITIALIZE
  4. 40 CLEAR ,,65536
  5. 50 ON KEY(1) GOSUB *VVVVV
  6. 60 ON KEY(2) GOSUB *VVVVV2
  7. 70 KEY(1)ON
  8. 80 KEY(2)ON
  9. 90 CLS
  10. 100 CONSOLE 1,22,2
  11. 110 SYMBOL (0,0),"ペポペポ　－モールス発信機－   Ver.5.2A ",1,1,6
  12. 120 Y=50
  13. 130 DIM VVV1$(255,2)
  14. 140 GOSUB 200 '*VVVVV
  15. 150 GOTO *READVVV
  16. 160 *VVVVV
  17. 170 Y=Y+5:GOTO 200
  18. 180 *VVVVV2
  19. 190 IF NOT Y<=10 THEN Y=Y-5:GOTO 200 ELSE Y=10
  20. 200 X=(1/Y)*47140
  21. 210 SYMBOL (500,0),"SPEED="+STR$(Y)+"   ",1,1,4,,OPAQUE
  22. 220 RETURN
  23. 230 *READVVV
  24. 240 A=0
  25. 250 'OPEN "I",#1,"B:\CQ\REP.DAT"
  26. 260 WHILE NOT VVV1$(A,2)="END"
  27. 270 A=A+1
  28. 280 READ VVV1$(A,1),VVV1$(A,2)
  29. 290 WEND
  30. 300 *IN
  31. 310 'XXXXXX=XXXXXX+1
  32. 320 'IF XXXXXX>24 THEN CLS:XXXXXX=0
  33. 330 'INPUT ">>",P$:PRINT P$,E$:IF P$="\\\" THEN LINE INPUT #1,E$:GOTO 350
  34. 340 'IF NOT P$=E$ THEN 370
  35. 350 'LOCATE 0,0'XXXXXX
  36. 360 'LINE INPUT #1,E$
  37. 370 PRINT
  38. 380 INPUT ">>",E$
  39. 390 IF E$="" THEN GOTO 360
  40. 400 M=1
  41. 410 C$=MID$(E$,M,1)
  42. 420 GOTO *EX
  43. 430 *KEYIN
  44. 440 IF M=LEN(E$) THEN GOTO *IN
  45. 450 M=M+1
  46. 460 GOTO 410
  47. 470 *EX
  48. 480 PRINT " "+C$;
  49. 490 IF C$=CHR$(&H0D) THEN PRINT:GOTO *KEYIN
  50. 500 IF C$=" " THEN FOR XXX=0 TO X*7:NEXT:GOTO *KEYIN
  51. 510 IF SGN(ASC(C$)-(ASC("a")-ASC("A")))=-1 THEN GOTO *KEYIN
  52. 520 D$=CHR$(ASC(C$)-(ASC("a")-ASC("A")))
  53. 530 RESTORE *D1
  54. 540 *DATREAD
  55. 550 FOR I=1 TO 97
  56. 560 A$=VVV1$(I,1):B$=VVV1$(I,2)
  57. 570 IF A$=C$ OR A$=D$ THEN GOTO *BEEP
  58. 580 NEXT
  59. 590 GOTO *KEYIN
  60. 600 *BEEP
  61. 610 FOR I=1 TO LEN(B$)
  62. 620 IF MID$(B$,I,1)="1" THEN PRINT "･";:BEEP 1:FOR XXX=0 TO X:NEXT:BEEP 0
  63. 630 IF MID$(B$,I,1)="2" THEN PRINT "-";:BEEP 1:FOR XXX=0 TO X*3:NEXT:BEEP 0
  64. 640 FOR XXX=0 TO X:NEXT
  65. 650 NEXT
  66. 660 FOR XXX=0 TO X*2:NEXT
  67. 670 GOTO *KEYIN
  68. 680 *D1               '英文
  69. 690 DATA A,12
  70. 700 DATA B,2111
  71. 710 DATA C,2121
  72. 720 DATA D,211
  73. 730 DATA E,1
  74. 740 DATA F,1121
  75. 750 DATA G,221
  76. 760 DATA H,1111
  77. 770 DATA I,11
  78. 780 DATA J,1222
  79. 790 DATA K,212
  80. 800 DATA L,1211
  81. 810 DATA M,22
  82. 820 DATA N,21
  83. 830 DATA O,222
  84. 840 DATA P,1221
  85. 850 DATA Q,2212
  86. 860 DATA R,121
  87. 870 DATA S,111
  88. 880 DATA T,2
  89. 890 DATA U,112
  90. 900 DATA V,1112
  91. 910 DATA W,122
  92. 920 DATA X,2112
  93. 930 DATA Y,2212
  94. 940 DATA Z,2211
  95. 950 *D2               '数字
  96. 960 DATA 1,12222
  97. 970 DATA 2,11222
  98. 980 DATA 3,11122
  99. 990 DATA 4,11112
  100. 1000 DATA 5,11111
  101. 1010 DATA 6,21111
  102. 1020 DATA 7,22111
  103. 1030 DATA 8,22211
  104. 1040 DATA 9,22221
  105. 1050 DATA 0,22222
  106. 1060 *D3               '記号
  107. 1070 DATA ".",121212
  108. 1080 DATA ",",221122
  109. 1090 DATA ":",222111
  110. 1100 DATA ?,112211
  111. 1110 DATA "'",122221
  112. 1120 DATA "-",211112
  113. 1130 DATA "(",21221
  114. 1140 DATA ")",212212
  115. 1150 DATA "/",21121
  116. 1160 DATA "=",21112
  117. 1170 DATA +,12121
  118. 1180 'DATA ",121121
  119. 1190 DATA "*",2112
  120. 1200 *D4               '和文
  121. 1210 DATA ｲ,12
  122. 1220 DATA ﾛ,1212
  123. 1230 DATA ﾊ,2111
  124. 1240 DATA ﾆ,2121
  125. 1250 DATA ﾎ,211
  126. 1260 DATA ﾍ,1
  127. 1270 DATA ﾄ,11211
  128. 1280 DATA ﾁ,1121
  129. 1290 DATA ﾘ,221
  130. 1300 DATA ﾇ,1111
  131. 1310 DATA ﾙ,21221
  132. 1320 DATA ｦ,1222
  133. 1330 DATA ﾜ,212
  134. 1340 DATA ｶ,1211
  135. 1350 DATA ﾖ,22
  136. 1360 DATA ﾀ,21
  137. 1370 DATA ﾚ,222
  138. 1380 DATA ｿ,2221
  139. 1390 DATA ﾂ,1221
  140. 1400 DATA ﾈ,2212
  141. 1410 DATA ﾅ,121
  142. 1420 DATA ﾗ,111
  143. 1430 DATA ﾑ,2
  144. 1440 DATA ｳ,112
  145. 1450 DATA ｲ,12112       'ヰ
  146. 1460 DATA ﾉ,1122
  147. 1470 DATA ｵ,12111
  148. 1480 DATA ｸ,1112
  149. 1490 DATA ﾔ,122
  150. 1500 DATA ﾏ,2112
  151. 1510 DATA ｹ,2122
  152. 1520 DATA ﾌ,2211
  153. 1530 DATA ｺ,2222
  154. 1540 DATA ｴ,21222
  155. 1550 DATA ﾃ,12122
  156. 1560 DATA ｱ,22122
  157. 1570 DATA ｻ,21212
  158. 1580 DATA ｷ,21211
  159. 1590 DATA ﾕ,21122
  160. 1600 DATA ﾒ,21112
  161. 1610 DATA ﾐ,11212
  162. 1620 DATA ｼ,22121
  163. 1630 DATA ｴ,12211  'ヱ
  164. 1640 DATA ﾋ,22112
  165. 1650 DATA ﾓ,21121
  166. 1660 DATA ｾ,12221
  167. 1670 DATA ｽ,22212
  168. 1680 DATA ﾝ,12121
  169. 1690 DATA ﾞ,11
  170. 1700 DATA ﾟ,11221
  171. 1710 '
  172. 1720 *D5               'その他
  173. 1730 'DATA 長音,12212
  174. 1740 'DATA 区切点,121212
  175. 1750 'DATA 段落,121211
  176. 1760 'DATA 括弧（,212212
  177. 1770 'DATA 括弧）,121121
  178. 1780 '
  179. 1790 *DX
  180. 1800 DATA BACKSPACE,111111
  181. 1810 DATA DATA,END
  182.